Imports System
Imports Microsoft.VisualBasic
Partial Class editVehicle_aspx_vb
    Inherits Functions
    Public isDiesel As Object
    'Public brandID As Object
    'Public modelID As Object
    Public isNewPricelist As Boolean
    Public isCurrenDistanceNoll As Boolean
    'Public RS As Object ' ADODB.Recordset
    Public strGrey As Object
    Public rowNumber As Integer
    Public Utslapp As Object
    Public subDo As String
    Public sqlstr As String
    Public vehicleID As Object
    Public regnr As Object
    Public Marke As Object
    Public modell As Object
    Public vinNumber As Object
    Public contractNumber As Object
    Public cylinderVolume As Object
    Public consumedDistance As Object
    Public discountPercent As Object ' System.Object
    Public completed As Object
    Public active As Object
    Public __date As Object
    Public brand As Object ' System.Object
    Public model As Object ' System.Object
    Public username As Object ' System.Object
    Public vehicleDocumentationID As Object
    Public vehicleDocumentation As Object
    Public userID As Object ' System.Object
    Public driverID As Object ' System.Object
    Public driver As Object ' System.Object
    Public areaCode As Object ' System.Object
    Public telephone As Object ' System.Object
    Public serviceintervall As Object
    Public email As Object ' System.Object
    Public country As Object ' System.Object
    Public countryCode As Object ' System.Object
    Public client As Object ' System.Object
    Public cin As Object ' System.Object
    Public dealerID As Object ' System.Object
    Public dealer As Object ' System.Object
    Public uw As Object
    Public partnerID As Object ' System.Object
    Public partnerName As Object ' System.Object
    Public street As Object ' System.Object
    Public zipcode As Object ' System.Object
    Public city As Object ' System.Object
    Public invoiceID As Object ' System.Object
    Public invoiceAmount As Object
    Public invoiceClaim As Object
    Public invoiceDate As Object
    Public paymentDate As Object
    Public paymentTerm As Object ' System.Object
    Public invoiceSettled As Object
    Public invoicePrinted As Object
    Public countryCurrency As Object ' System.Object
    Public price As Object ' System.Object
    Public priceListCategory As Object ' System.Object
    Public priceListDuration As Object
    Public priceListDistance As Object ' System.Object
    Public product As Object ' System.Object
    Public vehicleCount As Object
    Public claimID As Object ' System.Object
    Public claimStatus As Object
    Public paymentAmount As Object ' System.Object
    Public insurer As Object
    Public contactPerson As Object ' System.Object
    Public contactPersonEmail As Object ' System.Object
    Public claimReason As Object ' System.Object
    Public claimDecision As Object ' System.Object
    Public consumptionMaterialAmount As Object ' System.Object
    Public authorizedConsumptionMaterialAmount As Object ' System.Object
    Public garageID As Object ' System.Object
    Public garage As Object ' System.Object
    Public fax As Object ' System.Object
    Public note As Object ' System.Object
    Public claimMoment As Object ' System.Object
    Public costPerHour As Object ' System.Object
    Public numberOfHours As Object ' System.Object
    Public authorisedCostPerHour As Object ' System.Object
    Public authorisedNumberOfHours As Object ' System.Object
    Public claimPart As Object ' System.Object
    Public costPerPart As Object ' System.Object
    Public numberOfParts As Object ' System.Object
    Public authorisedCostPerPart As Object ' System.Object
    Public authorisedNumberOfParts As Object ' System.Object
    Public claimService As Object ' System.Object
    Public costPerService As Object ' System.Object
    Public numberOfService As Object ' System.Object
    Public authorisedCostPerService As Object ' System.Object
    Public authorisedNumberOfService As Object ' System.Object
    Public amount As Object ' System.Object
    Public authorisedAmount As Object ' System.Object
    Public claimAmount As Object
    Public authorisedClaimAmount As Object
    Public claimMomentAmount As Double
    Public authorisedClaimMomentAmount As Double
    Public claimPartAmount As Double
    Public authorisedClaimPartAmount As Double
    Public claimServiceAmount As Double
    Public authorisedClaimServiceAmount As Double
    Public currentDistance As Object
    Public internalDocumentation As Object ' System.Object
    Public brandID As Object ' System.Object
    Public modelID As Object
    Public dbModelID As Object ' System.Object
    Public cylinderVolumeLoop As Integer
    Public invoiceCount As Object
    Public productID As Object ' System.Object
    Public priceListID As Object ' System.Object
    Public garageInvoiceID As Object ' System.Object
    Public leaseStartDate As Object
    Public leaseEndDateCalc As Object
    Public leaseEndDate As Object ' System.Object
    Public leaseCurrentDate As Object
    Public leaseEndKms As Object ' System.Object
    Public claimDecisionDate As Object
    Public claimDecisionSendDate As Object
    Public allowClaimWhenCanceled As Object
    Public allowClaimWhenActive As Object
    Public invoiceCreditID As Object ' System.Object
    Public currentDays As Long
    Public leaseContractDays As Long
    Public dayPercentage As Double
    Public estimatedKms As Object
    Public estimatedOverdueKms As Object
    Public updatedByGarageDate As Object
    Public claimSum As Object
    Public priceSum As Double
    Public serviceBudget As Object
    Public additionalProduct As Object
    Public additionalProductCount As Object
    Public dbAdditionalProduct As Object ' System.Object
    Public additionalProductID As Object
    Public value As Object
    Public additionalProductVehicleContentCount As Object ' System.Object
    Public creditCount As Object ' System.Object
    Public allowInvoiceDistancePenalty As Object ' System.Object
    Public allowInvoiceDurationPenalty As Object ' System.Object
    Public allowInvoiceServiceAccountBalance As Object ' System.Object
    Public allowInvoiceAdminFee As Object ' System.Object
    Public invoiceLoop As Integer
    Public sqlAttribute As String
    Public sqlTable As String
    Public invoiceAdminFeeID As Object ' System.Object
    Public newPrice As Object ' System.Object
    Public oldPrice As Object ' System.Object
    Public claimDecisionSendDateUser As Object ' System.Object
    Public claimDecisionUpdatedDate As Object
    Public claimDecisionUpdatedUser As Object ' System.Object
    Public approvedAmount As Object
    Public approvedAmountSum As Object
    Public newAdditionalPrice As Object
    Public dealerEmployeeID As Object ' System.Object
    Public dealerEmployee As Object
    Public currentPrice As Object
    Public currentAdditionalPrice As Object
    Public firstRegistrationDate As Object
    Public client_lastName As String
    Public Typ As Object

    Public Drivmedel As Object
    Public Kaross As Object
    Public vaxellada As Object
    Public drift As Object
    Public dorrar As Object
    Public effekt As Object



    Public Function CleanString(base As String) As String
        If Len(base) > 0 Then
            base = Trim(base)
            base = Replace(CStr(base), "'", "")
            base = Replace(CStr(base), """", "")
            base = Replace(CStr(base), "<", "")
            base = Replace(CStr(base), ">", "")
            base = Replace(CStr(base), "=", "")
        End If
        CleanString = base
    End Function
End Class
